home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / CX.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  37 lines
  1. 10  HOME : TEXT 
  2. 15  PRINT 
  3. 20  PRINT "     As in the case of the CONCAVE      mirror, the line perpendicular to the   CONVEX mirror must pass through the"
  4. 30  PRINT "center of an imaginary circle created   from the mirror.  Always, the angle of  INCIDENCE is equal to the angle of "
  5. 40  PRINT "REFLECTION."
  6. 45  PRINT : PRINT : PRINT : PRINT : PRINT 
  7. 50  GOSUB 300
  8. 60  PRINT "Press <P> for another look at the       CONVEX mirror or press <N> for          something to reflect upon."
  9. 62  GET KY$
  10. 64  IF KY$ = "P"  OR KY$ = "p"  THEN  PRINT  CHR$(4);"run m3"
  11. 66  IF KY$ = "N"  OR KY$ = "n"  THEN  GOTO 310
  12. 67  PRINT 
  13. 68  PRINT "Please enter either <P> or <N> only."
  14. 69  PRINT 
  15. 70  GOTO 62
  16. 300  FOR I = 0 TO 3800
  17. 302 J = 1
  18. 304  NEXT I
  19. 306  RETURN 
  20. 310  HOME : TEXT 
  21. 312  PRINT : PRINT : PRINT : PRINT 
  22. 313  PRINT "Did you know....": PRINT 
  23. 314  PRINT "That if an object is centered between   two mirrors that are facing each other, you can calculate the number of images "
  24. 315  PRINT "that will be reflected?"
  25. 316  PRINT : GOSUB 600: PRINT 
  26. 317  PRINT "You can!": PRINT 
  27. 318  PRINT "Simply measure the angle between the    two mirrors.  Divide 360 by that angle. Then subtract one from the result of    the division."
  28. 320  PRINT : PRINT : PRINT : PRINT 
  29. 322  GOSUB 600
  30. 330  PRINT "Now it is time for some questions.      For each, respond by entering the       character corresponding to the correct  answer.  Press any key when you are     ready to start."
  31. 332  GET KY$
  32. 334  PRINT  CHR$(4);"run q1"
  33. 500  END 
  34. 600  FOR I = 0 TO 2000
  35. 602 J = 1
  36. 604  NEXT I
  37. 606  RETURN